home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 104 / 104.d81 / old glory (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  179 lines
  1. 100 poke53280,0:poke53281,0
  2. 140 poke55,0:poke56,64:clr:a$=""
  3. 142 dv=peek(186):ifdv<8thendv=8
  4. 143 dimr$(30),an$(16)
  5. 145 print"[147]":poke788,52:gosub60000
  6. 155 def fnd(i)=20-(len(an$(i))/2)
  7. 160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 197 sys57812"wp.o $c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 198 sys57812"inpany/copy",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  10. 200 ip=828:unpack=51456:hgr=51459:cp=928
  11. 202 fori=1to29:readr$(i):next
  12. 204 data"betsy","hopkinson","fort indy","15","20","21","23","24","25","26","27"
  13. 206 data"28","29","30","31","32","33","34","35","36","37","38","43","44","45"
  14. 208 data"46","48","49","50"
  15. 210 bo=53280:bg=53281
  16. 212 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 214 md$="[221]                                   [221]"
  18. 216 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  19. 220 qy=12:gosub4000
  20. 230 print"[129]"tab(10)"[212][200][197] [207][204][196] [199][204][207][210][217] [211][212][207][210][217]"
  21. 232 printtab(4)"1.[159]  [211]ee the slideshow
  22. 234 [153][163]4)"2.open  str$esign 51 and 52 star flags
  23. 236 printtab(4)"3.[159]  [209]uit to [204][207][193][196][211][212][193][210]
  24. 238 [151]198,0
  25. 240 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]240
  26. 250 [145][197](a$)[137]270,5000,40000
  27. 270 [129]x[178]1[164]29:j[178]0
  28. 272 [129]i[178]1[164]16:an$(i)[178]"":[130]
  29. 273 [159]2,dv,2,"og."[170]r$(x)[170]",p,r"
  30. 274 [129]i[178]0[164]1:[158]ip,2,40:i[178]st
  31. 275 j[178]j[170]1:an$(j)[178]a$:[139]j[177]15[167]i[178]1
  32. 276 [130]:[160]2
  33. 280 [141]1770
  34. 290 [158]57812r$(x)[170]".shp",dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  35. 310 [141]1910:[139]a$[178]"q"[176]a$[178]"(NULL)"[167]220
  36. 312 [141]2000
  37. 340 kk[178]0:[151]198,0
  38. 360 kk[178]kk[170]1:[161]a$
  39. 370 [139]a$[178]"q"[176]a$[178]"(NULL)"[167][158]hg:[137]220
  40. 380 [139]a$[178]"s"[176]a$[178]"(NULL)"[167]470
  41. 385 [139]a$[178]"p"[176]a$[178]"(NULL)"[167][141]3000:[137]340
  42. 390 [139]a$[178]"b"[176]a$[178]"peek"[167][151]bo,([194](bo)[170]1)[175]15:[137]340
  43. 400 [139]a$[178]" "[167]420
  44. 419 [139]kk[179]600[167]360
  45. 420 [158]hgr:[153]"load":[151]198,0:[130] x
  46. 430 [137]270
  47. 470 [158] hgr
  48. 560 [153]"loadopen (NULL)his will save "[199](34)r$(x)[199](34)"open as a"
  49. 562 [153]" str$(NULL)(NULL)str$(NULL)val! file."
  50. 564 [153]" (NULL)ource drive is"dv
  51. 566 [153]"open str$estination drive # (cont8open - cont12open): ";:l9%[178]2:[141]50000:de[178][197](q9$)
  52. 568 [139]de[179]8[176]de[177]12[167]560
  53. 590 [153]"open ascilename: dd";:l9%[178]14:[141]50000:[139]q9$[178]""[167]1110
  54. 620 nm$[178][200]("dd"[170]q9$,14)
  55. 820 [159]15,de,15,"r0:"[170]nm$[170]"="[170]nm$:[132]15,er,er$:[160]15
  56. 830 [139]er[178]63[167][141]1170:[137]1110
  57. 950 [158]57812nm$,de:[151]193,0:[151]194,92:[151]174,0:[151]175,128:[158]62954
  58. 980 [159]15,8,15:[132]15,er,er$,y$,z$:[160]15
  59. 990 [139]er[167][141]1170:[137]490
  60. 1050 [153]" (NULL)uccessful save!"
  61. 1060 [129]t[178]1[164]2000:[130]
  62. 1110 [158]hgr:[137]340
  63. 1170 [153]" str$isk error!
  64. 1180 poke214,10:print
  65. 1190 a$="[152][197]rror #"+str$(er)+"[152],"+er$
  66. 1200 x%=22-len(a$)/2:printtab(x%);a$
  67. 1210 poke214,21:print
  68. 1220 print"[159] [208]ress [211][208][193][195][197][159] to continue."
  69. 1230 geta$:ifa$<>" "then1230
  70. 1240 return
  71. 1250 o=peek(53270)and16
  72. 1255 ifothensys51459
  73. 1260 pokebo,0:pokebg,0
  74. 1270 print"[147]":poke214,11:print:print"[154]  [209]uit? (y[154]/n[154])":poke198,0
  75. 1280 geta$:ifa$<>"y"anda$<>"n"then1280
  76. 1290 ifa$="y"then40000
  77. 1295 ifothensys51459
  78. 1770 qy=15:gosub4000
  79. 1870 poke214,9-(j/2):print:print"[145][159]";
  80. 1880 fori=1toj
  81. 1882 printtab(fnd(i))an$(i)
  82. 1886 next
  83. 1900 return
  84. 1910 kk=0
  85. 1915 poke214,17:print:print"[153]     [215]hile the slide is showing..."
  86. 1918 print"       [208] [158]- takes you to [208][210][201][206][212] routine"
  87. 1919 print"       [211] [158]- takes you to [211][193][214][197] routine"
  88. 1920 print"       [209] [158]- quits to the [205]ain [205]enu
  89. 1930 [153]"print  (NULL)ress (NULL) to quit - (NULL)(NULL)atnlenval to continue"
  90. 1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
  91. 1950 [137]1940
  92. 2000 [153]"load";:[139]fh[167][151]254,0:[158]ba:[137]2040
  93. 2020 [151]251,64:[151]252,96:[151]253,92
  94. 2030 [158]un
  95. 2040 [151]252,96:[151]253,92:[158]hgr:[142]
  96. 2050 [142]
  97. 3000 [158]hgr
  98. 3020 [151]49158,0:[151]49159,0:[151]49160,39:[151]49161,24:[151]49162,96
  99. 3040 [153]"loadopen  (NULL)urn your printer on and press (NULL)(NULL)atnlenvalopen."
  100. 3050 [161]a$:[139]a$[179][177]" "[167]3050
  101. 3070 [153]"open (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to print the graphic, or
  102. 3080 print" press [211][208][193][195][197][159] to go back to the graphic.
  103. 3090 [161]a$:[139]a$[179][177]" "[175]a$[179][177][199](13)[167]3090
  104. 3100 [139]a$[178][199](13)[167][158]hgr:[158]49152:[142]
  105. 3110 [158]hgr:[142]
  106. 4000 [153]"";
  107. 4010 [151]bg,0:[151]bo,0
  108. 4020 [153]"loadlistortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  109. 4030 [129]qx[178]1[164]qy
  110. 4040 [153]"(NULL)"[163]38)"(NULL)":[130]
  111. 4050 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  112. 4060 [129]lx[178]217[164]242:[151]lx,([194](lx)[176]128):[130]
  113. 4070 [142]
  114. 5000 [151]bg,1:[151]bo,1:[153]"load"
  115. 5002 [153]"  "tp$:[129]i[178]1[164]18:[153]"  "md$:[130]:[153]"  "bt$
  116. 5005 s[178]0
  117. 5010 [151]214,21:[153]:[153][163]13)"stop(NULL)tar count:"
  118. 5015 [153]"print#  (NULL)se len(NULL)(NULL)(NULL) keys/(NULL)val(NULL)(NULL)(NULL)(NULL) to toggle stars
  119. 5020 print"  [208] - [208]rint    [195][204][210] - [195]lear    [209] - [209]uit
  120. 5025 [151]198,0:y[178]2:x[178]3:sc[178]1024:c[178]54272:[151]650,128
  121. 5030 l[178]sc[170]y[172]40[170]x:[151]l[170]c,3:[151]214,21:[153]:[153][163]24)"     cmdcmdcmdcmdcmdstop"s
  122. 5040 [161]a$:[139]a$[178]""[167]5040
  123. 5041 [151]l[170]c,6
  124. 5042 [139]a$[179][177][199](13)[167]5050
  125. 5044 [139][194](l)[178]170[167][151]l,160:s[178]s[171]1:[137]5072
  126. 5046 [151]l,170:s[178]s[170]1:[137]5072
  127. 5050 [139]a$[179][177]"on"[167]5060
  128. 5052 y[178]y[171]1:[139]y[179]2[167]y[178]19
  129. 5054 [137]5030
  130. 5060 [139]a$[179][177]""[167]5070
  131. 5062 y[178]y[170]1:[139]y[177]19[167]y[178]2
  132. 5064 [137]5030
  133. 5070 [139]a$[179][177]""[167]5080
  134. 5072 x[178]x[170]1:[139]x[177]37[167]x[178]3
  135. 5074 [137]5030
  136. 5080 [139]a$[179][177]"cmd"[167]5086
  137. 5082 x[178]x[171]1:[139]x[179]3[167]x[178]37
  138. 5084 [137]5030
  139. 5086 [139]a$[178]"q"[167][151]650,0:[137]220
  140. 5088 [139]a$[178]"load"[167]5002
  141. 5090 [139]a$[179][177]"p"[167]5030
  142. 5092 [151]781,23:[158]59903:[151]781,24:[158]59903
  143. 5094 [151]214,23:[153]:[153]"print#   chr$et your printer ready/press (NULL)(NULL)atnlenval":[151]198,0
  144. 5096 [161]a$:[139]a$[178]""[167]5096
  145. 5097 [139]a$[179][177]" "[167]5010
  146. 5098 [159]4,4,7
  147. 5100 [159]2,3,2:[129]i[178]0[164]19:[151]214,i:[153]
  148. 5110 [132]2,b$:[152]4,"    ";b$
  149. 5120 [130]:[160]2:[160]4
  150. 5130 [153]:[137]5010
  151. 5999 [137]5999
  152. 10000 [159]15,8,15,"s0:old glory":[160]15:[148]"old glory",8:[128]
  153. 40000 [151]788,49
  154. 40005 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
  155. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  156. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
  157. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  158. 40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
  159. 50000 q9$[178]"":u9[178]53280:[151]198,0
  160. 50010 [161]a$
  161. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  162. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  163. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  164. 50050 [139][195](q9$)[177][178]l9%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  165. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  166. 50070 q9$[178]q9$[170]a$
  167. 50080 [153]""a$;:[137]50010
  168. 60000 [153]"load":z$[178]" print#